home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Scroll.amos / Scroll.amosSourceCode < prev   
AMOS Source Code  |  1980-01-10  |  1KB  |  59 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. 'Date: 05.1997 
  9. '
  10. '
  11. Unpack 10 To 0
  12. Screen Open 1,640,256,4,Lowres
  13. Palette $0,$FFF
  14. Curs Off : Flash Off : Cls 0
  15. Wait Vbl 
  16. Dual Playfield 0,1
  17. Dual Priority 1,0
  18. Screen 0
  19. Colour 9,$FFF
  20. Screen 1
  21. Pen 1 : Paper 0
  22. Wait Vbl 
  23. For K=1 To 31
  24.    Print "DELTA IS COOL!";Space$(7);"DELTA IS COOL!";Space$(7);"DELTA IS COOL!";Space$(8);"DELTA IS COOL!"
  25. Next 
  26. X1=0
  27. X2=0
  28. Do 
  29.    Do 
  30.       If Inkey$<>""
  31.          WSK=0
  32.          SKOK=0
  33.          Repeat 
  34.             Inc WSK
  35.             Screen Offset 1,X1,
  36.             Screen Offset 0,X2,
  37.             Wait Vbl 
  38.             X1=X1+5
  39.             X2=X2+3
  40.          Until WSK=100
  41.          Exit 
  42.       End If 
  43.    Loop 
  44.    Do 
  45.       If Inkey$<>""
  46.          WSK=0
  47.          SKOK=0
  48.          Repeat 
  49.             Inc WSK
  50.             Screen Offset 1,X1,
  51.             Screen Offset 0,X2,
  52.             Wait Vbl 
  53.             X1=X1-5
  54.             X2=X2-3
  55.          Until WSK=100
  56.          Exit 
  57.       End If 
  58.    Loop 
  59. Loop